home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / oberonv4 / oberon < prev    next >
Text File  |  1996-05-27  |  2KB  |  84 lines
  1. ; $VER: Oberon_System_V4 1.3 (31.05.96)
  2.  
  3. ;set assign first
  4. IF EXISTS Loader    ; O4A in current dir
  5.     assign Oberon4Amiga: ""
  6. ELSE                ; try to find O4A in $Oberon4AmigaPath
  7.     IF EXISTS $Oberon4AmigaPath        ;is path in $Oberon4AmigaPath OK ?
  8.         assign Oberon4Amiga: $Oberon4AmigaPath ""
  9.         IF NOT EXISTS Oberon4Amiga:loader    ;is $Oberon4AmigaPath not an O4A path ?
  10.             ECHO "Can not find O4A in directory set in Env Var Oberon4AmigaPath."
  11.             ECHO "Plesae change Oberon4AmigaPath or install O4A again."
  12.             WAIT 8
  13.             SKIP Ende
  14.         ENDIF
  15.     ELSE
  16.         ECHO "Can not find O4A in current directory."
  17.         ECHO "Please set the directory of O4A in Env Var Oberon4AmigaPath."
  18.         ECHO "For example: setenv Oberon4AmigaPath Work:OberonV4"
  19.         WAIT 8
  20.         SKIP Ende2
  21.     ENDIF
  22. ENDIF
  23.  
  24. ;Test OS
  25. Oberon4Amiga:loader/TestSystem O
  26. IF WARN
  27.     ECHO "Oberon System V4 requires at least OS 2.04 !"
  28.     WAIT 6
  29.     SKIP Ende
  30. ENDIF
  31.  
  32. ;Test CPU
  33. Oberon4Amiga:loader/TestSystem C
  34. IF WARN
  35.     ECHO "Oberon System V4 requires at least an MC68020 CPU ! Sorry."
  36.     WAIT 6
  37.     SKIP Ende
  38. ENDIF
  39.  
  40. ;Test FPU
  41. Oberon4Amiga:loader/TestSystem F
  42. IF WARN
  43.     ECHO "There is no Floating Point Unit installed in your system."
  44.     ;NonFPU Version installed
  45.     IF EXISTS Oberon4Amiga:NonFPU
  46.         SetEnv Var NonFPU
  47.         ECHO "Oberon starts with the NonFPU Version. You will be able to"
  48.         ECHO "test O4A but REAL types in your programs will not work."
  49.         ECHO "You should buy a FPU if you want to use O4A for real work."
  50.     ELSE
  51.         ECHO "Install Oberon-NonFPU.lha to test O4A without FPU."
  52.         WAIT 8
  53.         SKIP Ende
  54.     ENDIF
  55. ENDIF
  56.  
  57. ;Test free memory
  58. Oberon4Amiga:loader/TestSystem M
  59. IF WARN
  60.     ECHO
  61.     ECHO "There is not enough free memory in your system."
  62.     ECHO "Close some applications or buy new memory and try again."
  63.     WAIT 8
  64.     SKIP Ende
  65. ENDIF
  66.  
  67. ;set Assigns for NonFPU Version
  68. IF $Var EQ NonFPU
  69.     assign Oberon4Amiga: "Oberon4Amiga:NonFPU" ADD
  70. ENDIF
  71.  
  72. ;Assign for both Versions
  73. assign Oberon4Amiga: "Oberon4Amiga:System" "Oberon4Amiga:Fonts" "Oberon4Amiga:Tool" "Oberon4Amiga:Text" "Oberon4Amiga:Data" "Oberon4Amiga:Demos" "Oberon4Amiga:System1" "Oberon4Amiga:Configuration" ADD
  74.  
  75. ;start O4A
  76. stack 100000
  77. Oberon4Amiga:Loader/OLoad Oberon4Amiga:
  78.  
  79. LAB Ende
  80.  
  81. assign Oberon4Amiga: REMOVE
  82.  
  83. LAB Ende2
  84.